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NOTICE 

TEXT COMPRESSION AND AUTOMATIC TEXT FORMATTING 
CODE TRANSPORTATION 


The routines in this package have been coded and presented so 
that they may be readily transported to other fig-FORTH systems 
on machines other than the Atari 400/800. This is in response to 
numerous requests to this effect from various "adventure" game 
authors. We note, however, that the same restrictions apply to 
the software in this package, whether run on the Atari 400/800 
machines or any other: 

First, the code may ONLY be used in either an AUTO'd system as 
described in valFORTH 1.1 documentation, or in a target-compiled 
system. 

Second, any software written with these routines, on any machine, 
must contain the acknowledgement of Valpar International as the 
source of the code, as described and detailed in valFORTH 1.1 
documentation. 

Other distribution may be construed to be a violation of 
applicable copyright laws. 



STROLLING THROUGH TCAF 
(Text Compress-ion and Autoformattingj 


The organization of this disk Is slightly different from the others in this 
series. While a table of contents may still be found on screen 170 as usual, 
in this package the "load chain," starting on screen 166, will get far more use. 
In general when one wishes to load a TCAF development system with a specific set 
of capabilities, one makes slight adjustments to the load chain option screen 
and then simply loads the first screen in the chain. The chain does the rest. 

To start off, first prepare two blank, formatted disks. Make your normal working 
copy of TCAF on the first disk arid leave it un-write-protected. The second disk 
will be used a little later. 


Autoformatting 

In order to select options you will want to make changes to the load chain 
option screen. This may be found by locating the load chain in the directory 
on screen 170, and then scanning through the screens in the chain until you 
find the one marked "options" in its first line. (This is on or near screen 167.) 
Look at this screen, and see that most of the lines have a left parenthesis in the 
left column, followed by a LOAD command and a comment. By removing selected 
left-column left parentheses you can activate various options. Right now on your 
working copy use an editor to remove all of the left-column left parentheses 
except for the one on the line that says "text compression." (Text compression 
uses transient structures and will be discussed separately.) And, qf course, 
don't remove the one in the comment at the very top of the screen. OK, now 
boot a bare valFORTH 1.1 system, and load in the debugger, and swap in the TCAF 
disk, do MTB as usual, and load the first screen in the load chain on this disk, 
(Probably 166.) 

When the prompt comes back, type 
ON STACK 

since you'll want to watch the stack, Then type 
TYPEOUT 


(Failure to execute this initialization word may cause a crash as you try to 
use words like *TYPE later on.) This command activates one of the two format¬ 
ting modes. This mode, called "type-out mode," since if uses the word TYPE as 
its actual output word, can send formatted type to either the display or the 
printer. The other formatting mode is activated by WINDQUT and is called 
"window-out mode." It will be discussed a bit later. 



Now type 


" Here is a simple example of the formatter's function." 

using lower case as shown, and notice that an address, actually PAD, is left 
on the stack. Now reactivate upper case (press Shift and Caps-Lowr) if you 
haven't already, and type 

COUNT 

The address was bumped by one, and the string count was extracted from the 
first byte in the string created by " and placed on top of stack. All normal. 
Now type 

2DUP CR CR TYPE CR 

and see that the typed output wraps around as usual. Now try 
2DUP CR CR *TYPE *CR 

The word "formatter's" is no longer split. Let's try it again but with 
different formatting. Type 

CTRJST ("center justification") 

2DUP CR CR *TYPE *CR 

How about 

FILJST ("fill justification") 

2DUP CR CR *TYPE *CR 

The text is now spread or "filled" to take up the whole space between the 
margins. The last mode is 

RGTJST ("right justification") 

2DUP CR CR *TYPE *CR 

which gives the expected result. Finally, type 

LFTJST ("left justification," the default mode) 

2DUP CR CR *TYPE *CR 

and we're back where we started. 

Well, what precisely is happening? The 2DUP each time is there of course 
to reproduce the two stack arguments, adress and count, for use by *TYPE 
(or TYPE). The two CR's each time are merely to space the result down the 
page a bit, and make it start at the left margin. As we will see, these two 

CR's will not generally be necessary in normal programs. The TYPE we'll assume 

you already know about. If not, look it up in the 1.1 glossary. While you're 
looking at TYPE'S definition you might refresh your memory about how to allow 
it to type inverse video characters also. A short discussion about this follows 
TYPE'S definition, and we may need this feature later on. OK, what about *TYPE? 
*TYPE, like TYPE, takes a count and address on the stack, but instead of 

routing the text directly to an output device, *TYPE sends it instead to a 
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holding buffer, located at BUF, where it accumulates. As each character is sent 
to the buffer it may be colored, inversed, or capitalized, depending on whether 
these options are loaded and appropriate. Since we loaded all three of these 
options we'll try them presently. When the buffer at BUF overflows with a non¬ 
blank character, *TYPE formats the line (if any format routines were loaded) 
and then sends it out via a vect called *XMTLN. Roughly, a vect is a word that 
can be "assigned" the meaning of a second word so that when the vect is executed 
it acts precisely like the word last assigned to it.) "XMTLN" in *XMTLN stands 
for "transmit line." The word *XMTLNP is currently assigned to *XMTLN and is 
located, in the first release, on or near screen 73. *XMTLNP, and so now *XMTLN, 
types out the buffer at BUF and increments a line counter if the printer is on 
and does a few CR's if a printed page is full. After the buffer is output, 
cleared, and the overhanging characters have been moved to the beginning of the 
buffer, *TYPE continues to consume the character string. In general there will 
always be something in the buffer unless it has been cleared. *CR pushes the 
lastofthe text out of the buffer to the output device, and then clears and 
initializes the buffer with BUFINIT. You probably won't have to do BUFINIT 
yourself unless you are experimenting with the internals of the program. To 
illustrate this point about *CR, type 

2DUP CR CR *TYPE 2DUP *TYPE *CR 

This time, since we didn't do *CR after the first *TYPE, the next *TYPE tacked 
its text right on to what was left in the buffer. 

Now type 

SP! (we'll make a new message) 

: SHOW 2DUP CR CR *TYPE *CR ; 

" here is another message for another purpose." 

COUNT 
CTRJST 
CAP SHOW 
SHOW 

See what CAP does? Now try 

ON CAPS 
SHOW 

OFF CAPS 
SHOW 

And what about inverse video? Since *TYPE uses TYPE and TYPE as it now stands 
will not print inverse video (it strips the high bit before sending a byte out) 
we'll need the modification discussed in the 1.1 Glossary, under TYPE. Here it 
is, type it in, carefully: 

HEX FF ' TYPE 14 + C! DECIMAL 

and then type 

VLIST 

to see an interesting side note. The high bits of the last byte of (almost) all 
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names are set. This is used by vocabulary search words. But, back to business. 
Type 

SHOW 

And you get trash. This is because some word in VLIST uses PAD for something, 
so your message was overwritten. This is just a reminder. Type 

SP1 (clear the stack) 

" Here is yet another message, to show other features." 

COUNT 
ON CAPS 
ON INVID 
SHOW 

ON INVBK (for "inverse background") 

SHOW 

OFF INVID 
SHOW 

2DUP CR *CR *TYPE *CR *CR CR 
etc. 

Play with these things for a while if you like. When you're done, do 

SPS 

OFF CAPS 
OFF INVID 
OFF INVBK 

and we'll continue. 


Virtual Memory (Disk-stored) Text 

We used the word " in the exercises above, but it has a serious shortcoming in 
that it won't digest a string larger than 255 characters since it only keeps 
a one-byte length byte. The word X" (for "extended quote") in this package 
allows longer strings when loading from disk. X" will not work from the key¬ 
board. Use XCOUNT with X", and it retrieves the two-byte length count and 
leaves it on top of the stack. There is a demo of X" on screen 120. Take a 
look at it if you like and then type 

120 LOAD 

and a short message will come back as part of the demo. Turn your stack on if 
you've turned it off for any reason, and do 

XCOUNT 

OFF CAPS OFF INVID OFF INVBK 

FILJ ST 

SHOW 
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If you looked at the screen you may have noticed the right-arrow characters 
near the end of the text. These cause a *CR to be executed at that point in 
the text. See *EMIT code for details. You can make your own control characters 
ina similar fashion. (To type a right arrow character in the valFORTH 1.1 
editor, do ESC followed by CTRL-*). Observe also that no —> was required for 
'X" to cross the screen boundary. X" will only stop on finding a final " and so 
may run right on through a disk looking for one if you forget to put it in. 

Well, X" is ok, but not as handy as it might be for general programming. Look 
at screen 122 and then type 

SP! 

122 LOAD 

and a demo message will come back again, indicating that a new word, MSGDEM1, 
now exists. This word will actually pull its message text off the disk. Let's 
do it. Do MTB just to make sure it's not cheating, and then type 

CR CR MSGDEM1 

Notice that we didn't use SHOW this time, just the message name. The messages 
end with a right-arrow. Now, the method that generates this message, namely 
using a new word, V" , followed by a string and then a terminating " and then 
the word M: followed by the message name, does achieve the desired result, but 
at the price.of leaving the V", ", M:, and name on the disk along with the 
message. This method is provided only because for those working with a one- 
drive development system it is the easiest, and does not involve any disk 
swapping during compile time. However, for those with two drive systems, and 
those with only.one drive but also a tolerance for swapping disks every time a 
message is compiled, the next and last structure in this series is provided. 

It allows fully compact, text-only messages to be compiled on the final product, 
and also allows encryption of the text. We will first do it the way the one- 
drivers need to. 

Look at screen 124. The 80 ALTINIT command sets up an alternate set of disk 
pointers to start at screen 80. This is where, in our example, the text of the 
various messages compiled by this method will be stored on the extra disk we 
formatted at the beginning. Notice that the message starts with X" again. 

Hence, we see that it will first be assembled at PAD before being sent elsewhere. 
Now look at screen 125. There's the terminating " , the defining word, MSG:, 
and the message name, and a short message with ." This final message is just 
there for convenience in this demo and is not needed in general. Type 

124 LOAD 

and when it tells you to put in the destination disk, swap in the extra blank 
disk you formatted, then press START as directed. At the next prompt, swap back 
and press START again. When using this method you must be very careful not to 
reverse your disks or you may wipe out part of your source disk. 



Well, the message is now written to the second disk on screen 80, and the 
word MSGDEM2 knows where to find it. Let's take a quick look to see that it's 
really there. Type 

MTB 

to empty the buffers, and then swap disks again (so that the destination disk 
is in the drive) and do 80 LIST, and then 81 LIST, There's the message. The 

first two strange bytes on screen 80 are the count. Now do 

MTB CR CR MS6DEM2 

and watch the routines pull the message from the disk. While we're here, 
let's send this to the printer. But since your printer may have characteristics 
different from the printer this package is initialized for, we want to adjust a 
couple of things. The first item is a quan named PWID. This is the actual 

number of columns your printer has. The default value is 80. To change it to 

96, for example, type 

96 TO PWID 

The second item is the quan PRTWID which is the width of the area you'd like to 
print to. The default again is 80, To set it to 60, say, type 

60 TO PRTWID 

The third item is how far you'd like to indent. This is the quan PRTIND and 
its initial value is 0. To set it to 10 type 

10 TO PRTIND 

Finally, we want to tell the formatter to send its output to the printer now, 
so type 

PRT: 

(The default setting was to the video display, and will be called back by VID:) 

Is your printer ready? Let's try it. Type 

MSGDEM2 

Since many printers will get confused if a character with the high bit set is 
sent to them you might want to be careful about this. 

Incidentally, the same options are available with the video display. PRTWID 
becomes VIDWID and PRTIND becomes VIDIND. PRT: becomes VID:. There is no "VWIB" 
since the formatter derives this from the positioning of the margins. (The left 
margin is kept by the OS in the byte at 82 decimal, and the right margin byte is 
at 83. Default are 2 and 39 respectively.) ■ 



Any new printer settings only become active when PRT: is executed, and like¬ 
wise with video settings and VID:. 

Try 


20 TO VIDWID 
4 TO VIDIND 
VID: 

OR CR MSGDEM2 

38 TO VIDWID (back to default) 

0 TO VIDIND (ditto) 

VID: (move in new values) 

OK, now swap the source disk back in, that is, the TCAF working disk, but keep 
the destination disk handy. Let's load a few (six) more messages. Type 

MTB (to empty the buffers) 

126 LOAD 

and follow the prompts. 

As you can see, any large amount of this single-drive compilation could be 
quite tiresome. Do a short VLIST (abort with any of the three yellow console 
buttons) and look at the new messages. Swap in the destination disk, do MTB, 
and then try 

CR MO 
CR Ml 
etc. 


Encryption and 2-Drive Systems 

There are two more features to point out. They are encryption/decryption (e/d) 
and adjustments for two-drive systems. Concerning e/d, look at screen 105, or 
wherever you find the title EN, DECRYPT or similar. (Do an INDEX if you can't 
find the right screen easily.) Notice that there is a --> at the top of this 
screen which is causing it not to load. Remove this arrow with your editor. 
(Since you’re going to reload the system in a minute anyway, it's ok if you 
over-write the system to get an editor in. Get one in somehow.) Now on the 
next two screens you should find the words ENCRYPT and DECRYPT in parentheses. 
(DECRYPT is in three times.) Remove the parens to allow these two words to load. 
Now, you folks with two drives, find the screen where MSG: is defined. (On or 
near screen 112). There are several sets of parens. Leave the ones that 
enclose $ENCRYPT and ... $DECRYPT ... alone. Shift only the ones that are 
around " DR! or " to be around " or DSTDSK " and shift the ones around " DRO 
or " to be around " or SRCDSK ." Just to be on the-safe side, here's a 
picture of how the screens should look after these changes. 



FOR ONE OR TWO DRIVE SYSTEMS 


Scr # 105 

© ( Vrtxt: EN, DECRYPT example 
1 
£ 

3 

4 s ENCRYPT ( cl — c£ 

5 117 - DUP 0< 

S IF £56 + ENDIF § 

7 

8 s DECRYPT ( c2 -- cl 

9 117 + DUP £55 > 

10 IF 256 - ENDIF ? 

11 
IB 

13 

14 

15 


FOR TWO DRIVE SYSTEMS ONLY 


Scr # 11£ 

) 0 < Vrtxts ALT*! MSB: ) 

1 

£ s ALT*! ( X* — ) 

3 VRTSAV ALTREC V*! 

) 4 ALTSAV VRTREC j 

5 

6 * MSS* < X* — ) 

7 < fENCRYPT ) 

) 8 <BUILDS DR1 (or DSTDSK ) 

9 ALTBLK , ALTIN , ALT*! 

10 FLUSH DR0 ( or SRCDSK ) 

11 DOES) VRTSAV 

12 DUP 0 SWAP 2+ @ IN ! BLK ! 

13 V**EMT ( or ) 

14 ( V*@ *DECRYPT XCOUNT *TYPE ) 

> 15 VRTREC ; 


Scr # 
0 < 
1 

2 s 

3 

4 

5 

6 s 

7 

8 
9 

10 

11 S 

12 

13 

14 

15 


106 

Vrtxt* V*TP V*0 V**EMT ) 

V*TP i — X* S>PAD3 ) 

VRTC0 DECRYPT NXTVRT VRTC@ 
DECRYPT NXTVRT £56 * + ; 

V*@ C — X* C=PAD3 ) 

PAD £+ V*TP DUP PAD ‘ 0 
DO VRTC0 OVER C! 1+ NXTVRT 
LOOP DROP PAD | 

V**EMT < — X* C=PAD3 ) 

V*TP 0 

DO VRTC0 DECRYPT 
*EMIT NXTVRT 

LOOP i —> 


Scr 

0 

1 

£ 

3 

4 




6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


107 

Vrtxt * V*! ) 

V*! ( X* — ) 

DUP @ £+ 0 
DO DUP C0 ENCRYPT 
VRTC! 1+ NXTVRT 
LOOP DROP *, 
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What this last change does is substitute an automatic disk-shift for the swap 
prompts driven by DSTDSK and SRCDSK. These words are no longer needed and may 
be bypassed later on, if you're comfortable with the way things are working. 

OK, now, although some of you might be able to get these changes in by doing 
some FORGETting and reloading (if you didn't have to overwrite the system before), 
why not just reload the whole (modified) system this time, starting from valFORTH 
1.1. Don't forget the debugger if you want it, and remember to initialize with 
TYPEOUT. Go ahead. We'll wait. 

Now you can repeat the exercises from before, starting where you did the 124 LOAD. 
Two drive systems should have the "destination" disk, the one with the messages 
on.it, in the second drive, and the source disk, TCAF, in the first drive. Two- ' 
drive systems should execute DR1 (which in FORTH means the second drive, which 
is number 2 on Atari systems) before saying message names so that the code will 
read the right drive. Say DRO to go back to the source-code drive. (Released 
programs will of.course not want to say DR1 since they will expect the "game" 
or application disk to be in the first drive, DRO, which is default. When you 
are making messages in this way, be sure to start them high enough on disk that 
your AUTO'd program, which will actually do the message retrieval, will fit 
under them.) If you look at screen 80 on the destination disk, what you'll see 
is that the text is now scrambled. The encryption routine used is a simple off¬ 
set scheme, and would be easy to crack for a serious hobbyist, though not for 
the casual user. If you are interested in a higher degree of security, you can 
encode a whole string at a time with more sophisticated routines. A pair of 
names, $ENCRYPT and $DECRYPT, have been reserved for these routines. We don't 
provide any examples, but a modern text on cryptography might be a good place 
to start looking. Anyway, if you use the names SENCRYPT and $DECRYPT, and if 
the routines expect an extended string on stack (that is, one with a, two-byte 
count at its front end) then they will (hopefully) snap right into the spot 
designated by the parens. 


Windows 

Windows are rectangular areas of the video display. They are not supported 
on the printer, but are supported in both "black and white" graphics 0 mode, 
and colored graphics 1 and 2 modes. Windows may be set up on-the-fly or they 
may be given names so that words can call them up readily. The implementation 
provided here may be used as an example and guide, since you may want your 
windows to act somewhat differently. 

Since it is tricky to interact with a graphics 0 window from the keyboard 
(there is no simple way that we can find to date to create a split-screen 
option) we'll illustrate windows in graphics 1, and so also show how color 
works. Type 

1 GR. 

3 4 10 5 MAKECW 

This makes a Color Window whose upper left hand corner is at the 3rd column 
over, 4th row down (counting the left and top edges as zero), and which is 



10 characters wide and 5 high. We have messages MO through M5 still available, 
so let's send them to the window. Type 


WINDOUT (counterpart of TYPEOUT) 

OFF CAPS 
0 COLOR MO 

1 COLOR Ml 

2 COLOR M2 

3 COLOR M3 
WCLR 

Note the extra coloration caused by the mix of upper and lower clase. This can 
be canceled by ON CAPS though it restricts the user to two color for the letters 
instead of four. A good practice would be to put all the source text for colored 
windows in upper case. Coloration switches in the middle of a message could be 
implemented by control characters similar to the right-arrow character and its 
meaning of *CR. This is done in *EMIT, you'll remember, and you might even use 
a case statement. 

Numerical formatting is also supported, by the words *. and *.R which are 
direct counterparts of . and .R, except that they go through the formatter 
before outputting. Try 

3456 *. *CR 
7890 7 *.R *CR 

These routines should be used both with WINDOUT and TYPEOUT. Using just . or 
.R will upset the formatting. 

There is also 

2 2 lb 3 NAMECO 3JNG0 


which names a color window with the given parameters as BINGO. When BINGO is 
executed it will clear itself and position the imaginary cursor at its the 


corner. By studying the code, this and other 


upper * 0 - :ty 
characteristics may be altered. 


performance 


Compression 


Finally, there is "true" text compression (TC) ifser 


s intended primarily 


for applications where disk access to messages is not available, such as in 
cassette-booted systems. This utility uses Transient structures which you have 
probably come across before in the packages in this senes. Hence, ail the 
warnings about memory collisions must to some extent apply. The text compression 
utilities themseive# are ' r a1rfy straightforward to use, but what thev do is 


briefly 


Tf 


lows the creat' 


bi ts 


header 1 ess code 


rather complex. 

called "tc-texts" that, when executed, put a string onto the slack and then 
jump to the appropriate Forth words, for formatting. These tc-texts come in 
three types in this package, namely, tc-words, tc-suffixes and tc-prefixes. 


! T 
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TEXT COMPRESSION AND AUTO TEXT FORMATTING GLOSSARY 


Basic Commands 

( " ) 

Like , but sends string to the active formatting/outputting 
routines. 

*jYPE ( addr count — } 

Like TYPE, but sends string of count characters starting at addr to 
the active formatting/outputting routines. 

*CR ( — ) 

Somewhat like CR in that it causes a carriage return. In _ 

addition, *CR first formats and flushes the buffer to the output device, 
and clears the buffer after doing so. 

*EMIT ( c — } 

Like EMIT except sends the character c to the formatter, instead 
of directly to the output device. 

*SPACE ( — ) 

Sends a single character of value in the quan BKGND to the 
formatter, through *EMIT. 

*SPACES ( n — ) 

Sends n characters of value in the quan BKGND to the formatter, 
through *EMIT, 

*BACKS ( — ) 

Similar to action of delete key. Backs up the formatter buffer 
pointer, BPTR, one location and fills new location with BKGND value. 

RGTJST ( — ) 

Sets up formatter for right justification. 

LFTJST ( — ) 

Sets up formatter for left justification. 

CTRJST ( - ) 

Sets up formatter for center justification. 



FI LOST 


( - ) 


Sets up formatter for fill justification. 

INVID ( f — ) 

ON INVID means text will be output in inverse video; OFF INVID 
means normal video. 

INVBK ( f — ) 

ON INVBK means background of text will be output in inverse 
video. OFF INVID means normal video. 

CAP ( - ) 

Causes capitalization of the next byte processed by *EMIT or *TYPE, 

CAPS ( f — ) 

ON CAPS means subsequent formatted text will be capitalized if 
lower case. OFF CAPS means text will be printed as-is. 

COLOR ( b - ) 

New color register b will be used for color of subsequent text 
output to windows in Graphics modes 1 and 2. 

TYPEOUT ( — ) 

Initialization routine for the formatter. Either TYPEOUT or 
WINDOUT must be executed before the first attempt to output text from 
the formatter or the system may crash. TYPEOUT directs the formatter 
to use TYPE as its actual output routine, allowing output to the display 
screen or printer. 

WINDOUT ( - ) 

Initialization routine for the formatter. Either TYPEOUT or 
WINDOUT must be executed before the first attempt to output text from 
the formatter or the system may crash. WINDOUT directs the formatter 
to use window routines for output. A window must be created before 
attempting to use window output or the system may crash. See also 
NAMWND. 
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Quans, vects, and subcommands 


FDIR ( - +-l ) 

A quan that holds the next direction to be used by the fill- 
justification routines when padding the text in the formatting buffer 
with blanks. 


MUST { — ) 

A vect used to point to the routine that performs whatever 
justification action is current. Altered by LFTJST, RGTJST, CTRJST, 
and FILJST. ’ 




BKGND ( — n ) 

Quan which holds the value of the background character to be used 
when clearing the formatting buffer. Generally either 32 (blank) or 
160 (inverse blank.) See INVBK, 

EOB ( - n ) 

Quan which points to the location in the formatter buffer 
corresponding to the last allowable position in the current output 
width. Set up by various routines including PRT:, VID:, and window- 
creating routines. Stands for "end of buffer." 

BPTR ( — n ) 

Quan which points to the next available location in the formatter 
buffer. May be user-altered for special purposes, but should not be 
placed lower than BUF or higher than EOB. Stands for "buffer pointer." 

WWID ( - n ) 

Quan which holds width of field to which text will be output. 

Used to set up EOB, which is actually used by the formatting routines. 
See EOB. Stands for "window width" though windows as defined elsewhere 
need not exist. 

*XMTLN ( — ) 


A vect that points to the routine to be used to move text from the 
formatter buffer to the output device. Set up at present either bv 
TYPEOUT or WINDOUT. Stands for "transmit line." 


BUF 


( - ) 


A label that points to the beginning of the formatter buffer area. 
This area need only be three bytes longer than the longest line to be 
formatted. 


INVBK ( ON or OFF - ) 

When ON, background character output by formatter in 0 graphics 
mode will be inverse video blank. When OFF, this character will be 
normal video blank. Sets up BKGND. See BKGND. 
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BUFCLR 


( - ) 


Fills the formatter buffer with BKGND. 

BUFINIT ( - ) 

Fill the formatter buffer with BKGND, sets up EOB using WWID 
and BUF, and points sets BPTR equal to BUF. 

*TINT ( c - c ) 


A vect that either points to the coloring routines when a color 
window is active, or to NOOP when a 0 graphics window is active. 


*CAP 


( c — c ) 


Capitalization routine. 
*INV ( c - c ) 


A vect that either points to the inversing routine when a 0 
graphics window is active, or to NOOP when a color window is active. 


Text Compression 

W= xxx, ( -- ) 

xxx: ( -- ) 

Creates a tc-word-compiling word, named xxx, and a headerless 
tc-word which when executed sends the string xxx through the formatter 
followed by *SPACE. xxx when executed, compiles in the cfa of this 
tc-word. W= and xxx are both in transient area and so are disposed by 
DISPOSE. 

P= xxx, ( ) 

xxx, ( — ) 

Creates a tc-prefix-compiling word, named xxx, and a headerless 
tc-prefix which when executed sends the string xxx through the 
formatter, xxx when executed, compiles in the cfa of this tc-prefix. 

P= and xxx are both in the transient area and so are disposed by 
DISPOSE. 

S= xxx, ( -- ) 

xxx, ( -- ) 

Creates a tc-suffix-compiling word, named xxx and a headerless 
tc-suffix which when executed sends the string xxx through the formatter 
preceded by *BACKS and followed by *SPACE. xxx, when executed, compiles 
in the cfa of this tc-suffix. S= and xxx are both in the transient 
area and so are disposed by DISPOSE. 


Typed Output 
PRTWID 


( - n ) 






A quan containing the width of the area to be printed when printer 
output from the formatter has been selected by PRT:. PRT:, among other 
things, moves PRTWID to WWID, 

PRTIND ( — n ) 

A quan containing the number of spaces the printer is to indent 
when outputting from the formatter. PRTIND is moved to PVIND by PRT: 

PVIND ( - n ) 

A quan containing the number of spaces the output device is to indent 
when outputting from the formatter. Set up by PRT: from PRTIND or by VID: 
from VIDIND. 

PWID ( - n ) 

A quan containing the number of columns the printer is actually able 
to print as it is currently configured, and independent of the formatting 
routines. 


VIDIND ( — n ) 

A quan containing the number of spaces the output routines is to 
indent when outputting from the formatter. VIDIND is moved into PVIND 
by VID:. 

VIDWID ( - n } 

A quan containing the width of the area to be written when video 
output from the formatter has been selected by VID:. VID:, among other 
things, moves VIDWID to WWID. 

PRT: ( — ) 

Directs TYPEd output to the printer, and moves appropriate values 
into WWID and PVIND. 

VID: { - ) 

Directs TYPEd output to the video display, and moves appropriate 
values into WWID and PVIND. 


PRINIT { - ) 

Resets PCTR, the printed line counter. 

*XMTLNP ( — ) 

Routine sent to the vect *XMTLN by TYPEOUT. Routes output 

through TYPE. 
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Windows 


WADR ( — ) 

Address in memory corresponding to character position in upper 
lefthand corner of current window. 

WHGT ( — ) 

Height in lines of currently active window. 

LPTR ( — ) 

Counter that holds number of next line in window to which text is 
to be written. If LPTR points beyond the window then scrolling will 
occur at next output. 

B/LN ( - n ) 

Bytes per line. Necessary datum for scrolling and clearing routines 
for windows. 


WCLR ( - ) 

Fills the current window with BKGND. 

NAMWND ( wadr wid hght b/ch byt/ln — ) 

One of many possible window-defining structures. Accepts window 
upper lefthand corner address, its width, height, byte-character, and 
the bytes/ln of the current graphics mode. 

NAMEBW xxx, ( column row wid hgt -- ) 

xxx: ( — ) 

Names a 0 graphics window for later activation. 

MAKEBW ( col row wid hgt -- ) 

Establishes a 0 graphics window immediately but does not name 
it for later retrieval. 

NAMECW xxx, { col row wid hgt -- ) 

•xxx: ( -- ) 

Names a 1 or 2 graphics window for later activation. 

MAKECW ( col row wid hgt ) 

Establishes a 0 graphics window immediately but does not name 
it for later retrieval. 
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Vi rtual (Disk-based) Memory 


(A pointer to a byte on disk is implemented by the two system variables, BLK and 

IN in the fig model. BLK contains the block number pointed to and IN contains 

the number of bytes into the block the byte in question is located.) 

VRTC@ ( — b ) 

Fetches the byte pointed to on disk by the system variable BLK and 
IN. (BLK is the block number, and IN is the number of bytes into the 
block the desired byte is located.) 

VRTC! ( b — ) 

Stores the byte on stack to the location on disk pointed to by BLK 
and IN. See VRTC0. 

VRTSAV ( — ) 

Saves the values of system variables BLK and IN to quans OBLK and 
OIN respectively. 

VRTREC ( — ) 

Recalls the values of the system variables BLK and IN from the 
quans OBLK and OIN respectively. 

^ NXTVRT ( — ) 

Bumps the system variables BLK and IN as required to point to the 
next location in virtual memory. 

RELVRT ( offset — ) 

Takes an offset on stack and alters the system variables BLK 
and IN as necessary to point offset bytes from their initial virtual 
memory location. 

V" ( -- blk in ) 

Leaves the values of BLK adn IN on the stack at the time it is 

executed and then scans the virtual memory pointer formed by BLK and 
IN forward until the next " character is encountered. 

XMTV ( — ) 

Starting from the location in virtual memory pointed to by BLK 
and IN, outputs characters through *EMIT until a " character is 
encountered, which it does not output. 
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XCOUNT 


( adr -- adr+2 xcount ) 


Extracts a two-byte count from an extended string, and leaves 
the count on top of the address + 2. 

M: xxx, ( blk in -- ) 

xxx: ( — ) 

Generally used after V". Takes a virtual memory pointer from 
the stack, and creates a word xxx which when executed will push the 
virtual memory pointer to BLK and IN and then exectue XMTV, thus 
retrieving a message from disk. See Strolling... for an example. 

V: xxx, ( blk in -- ) 

xxx: ( -- ) 

Creates a word xxx which when executed pushes the virtual memory 
pointer which was on stack at the time of its creation to BLK and IN. 

V$TP ( — XCOUNT ) 

Extracts a two-byte string count from the disk location to which 
BLK and IN point, leaves it on stack, and bumps the virtual memory 
pointer made up of BLK and IN twice. 

V$@ ( - X$=PAD ) 

Extracts the extended string in virtual memory pointed to by BLK 
and IN. The string is left at PAD, 

V$*EMT ( — ) 

Sends the extended string pointed to by BLK and IN through *EMIT. 

V$! ( X$ - ) 

Stores the extended string on stack to virtual memory starting at 
the location pointed to by BLK and IN. 

X” ( —X$=PAD ) 

Reads the following characters until the delimeter " as an 
extended string and stores the string at PAD. Operates from screens 
only. Crosses block and screen boundaries without additional code. 

Do not use --> to cross screens, as --> will just become part of the 
string. 

ALTSAV ( — ) 

Copies variables BLK and IN to quans ALTBLK and ALTIN respectively. 

ALTREC ( — ) 

Copies quans ALTBLK and ALTIN to variable BLK and IN respectively. 


LI 1-8 



ALTINIT 


( scr — ) 


Sets up ALTBLK and ALTIN to point to screen scr. ALTBLK and ALTIN 
form an auxiliary virtual memory pointer that is used to keep track of 
how far messages have been compiled onto the destination disk. 


ALTS! 


( X$ - ) 


Like V$! except stores string through alternate virtual memory 
pointers made up of ALTBLK and ALTIN. 
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LIII. TEXT COMPRESSION AND AUTO TEXT FORMATTING 
SUPPLIED SOURCE LISTING 

Screen: 4 

0 ( Transients: setup ) 

1 M QUAN > < 5 KLOAD > 
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3 BOSE @ DCX 

4 

5 HERE 

6 

7 741 9 4000 - DP ! 

8 ( SUGGESTED PLACEMENT OF TOREA > 

9 
10 

11 HERE CONSTANT TOREA 

12 QUAN TP 

13 QUAN TPFLAG 1 TO TPFLAG 

14 QUAN OLDDP < old HERE ) TO OLDDP 
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Screen: 5 

0 < Xsients: TRANSIENT PERMANENT ) 
1 < Expanded from code by Phillip) 
£ ( Wasson, in Forth Dimensions ) 

4 : TRANSIENT < — ) 

5 TPFLAG NOT 

6 IF HERE TO OLDDP TP DP ! 

7 1 TO TPFLAG 

8 ENDIF ; 

9 
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11 
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13 

14 

15 


10 

: PERMANENT 

( — ) 

11 

TPFLAG 


12 

IF HERE TO TP OLDDP DP ! 


13 

0 TO TPFLAG 


14 

END IF ; 
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Screen: 6 

0 < Transients: DISPOSE ) 

1 : DISPOSE PERMANENT 
£ CR .” Disposing..." VOC-LINK 

3 BEGIN DUP 0 53279 C! 

4 BEGIN 9 DUP TAREA U< 

5 UNTIL DUP ROT ! DUP 0= 

6 UNTIL DROP VOC-LINK 9 

7 BEGIN DUP 4 - 

8 BEGIN DUP 0 53279 Ci 

9 BEGIN PFA LFA 9 DUP TAREA U< 

10 UNTIL 

11 DUP ROT PFA LFA ! DUP 0= 

12 UNTIL DROP 9 DUP 0= 

13 UNTIL DROP [COMPILE] FORTH 

14 DEFINITIONS ." Done" CR ; 

15 PERMANENT BASE ! 
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0 ( Quans ASSIGN ) ^ 

1 
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3 

4 ’ < CFALIT 

5 s ASSIGN [COMPILE!] CFALIT ; 


6 

IMMEDIATE —> 

) < 

) 
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s ASSIGN 


< - 

9 

STATE 0 



10 

[COMPILE! [ 



11 
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CFA 

SWAP 

12 
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13 

ENDIF [COMPILE! 
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0 ( Quans TO AT > 
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2 s TO 

3 -FIND 0- 0 7ERR0R DROP 

4 STATE 0 

5 IF , 

6 ELSE EXECUTE 

7 ENDIF ; IMMEDIATE 
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9 s AT 

10 -FIND 0= 0 7ERROR DROP 

11 2+ STATE 0 

12 IF , 

13 ELSE EXECUTE 

14 ENDIF ; IMMEDIATE 
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C, 

00 

c, 
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1 

£ DCX 
3 

A s (PTCH) < system ) 

5 SWAP >R R - 251 R = 2A9 R> * 

6 DR OR ; 

7 

8 s PTCH < system ) 

9 IF [ ’ (PTCH) CFA 3 LITERAL 

10 ELSE C ’ = CFA 3 LITERAL 

11 ENDIF 

1£ Z ’ CREATE 63 + 3 LITERAL ! 5 

13 

1A 
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0 < Quans QUAN VECT > 

1 

2 s QUAN 

3 DN PTCH LABEL -2 ALLOT 

A <£@ 6 ) , <2!A) , 

5 C ’ VARIABLE A + 3 LITERAL , 

S 2 ALLOT OFF PTCH ? 

7 

B s VECT 

9 ON PTCH LABEL -2 ALLOT 

10 (2V6) , (2!A) , 

11 E ’ VARIABLE A + 3 LITERAL , 

12 C * NOOP CFA 3 LITERAL , 

13 OFF PTCH ; 
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0 ( Screen code conversion words ) 


1 

2 BASE <i» HEX 

3 


4 

CODE > BSCD 




( a a 

n — 

5 

A9 C f 

03 

c. 

20 

c, 

SETUP 

* 

6 

HERE 

C4 

c, 

C2 

C, 

D0 C, 

07 C, 

7 
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C3 
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10 

C, 
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4C C, 

8 

NEXT , 
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C, 

C6 C, 

48 C, 

9 
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7F 

c, 

C9 

C, 
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B0 C 
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0D C, 

C9 

c, 

20 

C, 
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06 C 

11 
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69 
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40 
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4C C, 
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E9 

C, 
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13 
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c, 
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B0 C, 

12 

0D C, 

C9 

C, 

40 

C, 

B0 C, 

06 C, 

13 

18 C, 

69 

C, 

20 

C, 

4C C, 

HERE 

14 

2 ALLOT 

38 

C, 

E9 

C, 

40 C, 

HERE 
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2 

SWAP 

* 

91 


C4 

c, 

68 

Cy 

29 C, 

3 

80 

c, 

11 

c, 

C4 

C, 

91 

C, 

C4 C, 

4 

C8 

c, 

D0 
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QUAN BKGND 
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BL TO BKGND 
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4 

QUAN EOB 
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5 
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6 IF 160 

7 ELSE BL 

8 ENDIF TO BKGND ; 
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0 ( AF0: BUFCLR BUFINIT ) 

1 

2 s BUFCLR ( — ) 

3 BUF WWID BKGND FILL ; 
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5 s BUFINIT ( — ) 

6 WWID BUF + 1- TO EOB 

7 BUFCLR BUF TO BPTR ; 
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6 EOB 
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£ s A FJ ( — ) 

3 1 TO ?FJ 
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1 

2 s FPASS ( — ) 

3 0 TO ?FJ 

4 BEGIN LCHR EOB U< <FPTR> AND 

5 WHILE FPTR ?BL 

6 IF 1 TO ?FJ 

7 FPTR FPTR 1+ EOB FPTR - 

8 <CMOVE 1 AT LCHR +! 

9 BEGIN FDIR AT FPTR +! 

10 FPTR ?BL NOT <FPTR> NOT OR 

11 UNTIL 

12 ENDIF FDIR AT FPTR +! 

13 REPEAT ; 
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♦XMTLN BUFCLR ; 



J 

S : 

SENDLN 

( 

-- ) 

7 

(LWD) LWD BUF U> 



a 

IF MOVWD LWD EOB LWD - 
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Screen: 112 

) 0 ( Vrtxt: ALT*! MSG: > 

1 

£ : ALT*! < X* -- > 

3 VRTSAV ALTREC V*! 

4 ALTSAV VRTREC ; 

5 

6 : MSG: < X* — ) 

7 ( *ENCRYPT ) 

8 <BUILDS ( DR1 or ) DSTDSK 

9 ALTBLK , ALTIN , ALT*! 

10 FLUSH ( DR0 or ) SRCDSK 

11 DOES) VRTSAV 

12 DUP 0 SWAP 2+ C- IN ! BLK ! 

13 V**EMT ( or ) 

14 ( V*@ ^DECRYPT XCOUNT *TYPE ) 

—> 15 VRTREC ; 
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0 < Vrtxt : ALTSAV, REC > 

1 

£ QUAN ALTBLK QUAN ALTIN 


4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


ALTSAV 

BLK 0 TO ALTBLK 
IN 0 TO ALTIN ; 

ALTREC 
ALTBLK BLK ! 
ALTIN IN ! ; 


( — ) 

< — ) 

—> 
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Screen: 111 

0 ( Vrtxt: ALTINIT SCRDSK DSTDSK) 
1 

2 : ALTINIT ( screen — ) 

3 B/SCR * TO ALTBLK 

4 0 TO ALTIN ; 


6 

7 

8 
9 

10 



13 

14 

15 


: SRCDSK < ~ > 

CR ." Insert source disk and p 
ress START." WAIT CR ; 


: DSTDSK 

CR . " Insert dest. 
ess START.“ WAIT CR 
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Screen s 118 
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Screens 116 

0 ( For demoss UMOVE $! ) 

1 

£ M $! ;S ) ( ) 

3 

4 s UMOVE ( a a n — > 

5 <ROT OVER OVER U< 

6 IF 

7 ROT <CMOVE 

8 ELSE 

9 ROT CMOVE 

10 ENDIF ; 

11 

12 s $! 

13 OVER C@ 1+ UMOVE ; 

14 

15 —> 
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Screens 117 

0 ( For demoss C'3 " ) 

1 

£ s (") ( — * ) 

3 R DUP C@ 1+ R> + )R j 

4 

5 s " 

6 34 ( Ascii quote ) 

7 STATE 9 

8 IF < cccc" — ) 

9 COMPILE <"> WORD 

10 HERE C@ 1+ ALLOT 

11 ELSE 

12 WORD HERE ( cccc" — $ ) 

13 PAD *! PAD 

14 ENDIF ; 

15 IMMEDIATE 


Screen s 120 

0 < X" ... " demo ) 

1 

2 X" When you are going to take in 

3 hand any act, remind yourself w 

4 hat kind of an act it is. If yo 

5 u are going to bathe, place befo 

6 re yourself what happens in the 

7 baths some splashing the water, 

8 others pushing against one anot 

9 her, others abusing one another, 

10 and some stealings and thus wi 

11 th more safety you will undertak ^ 

12 e the matter, if you say to your 

13 self, I now intend to bathe, and 

14 to maintain my will in a manner 

15 comformable to nature. And so 



It 


MSGs msg-name demo ) 


Screen: 121 

0 you will do in every acts for t 

1 hus if any hindrance to bathing 

2 shall happen, let this thought b 

3 e ready: it was not this only t 

4 hat I intended, but I intended a 

5 Iso to maintain my will in a way 
£ conformable to nature; but I sh 

7 al not maintain it so, if I am v 

8 exed at what happens.** Epictetus 

9 , translated by George Long, 187 

10 7. •* " 

11 

12 CR 

13 ." The X-quote string is loaded" 

14 CR 

15 


Screens 124 
0 ( X" ... 

1 

2 80 ALTINIT 

3 

4 X" 

5 ’Accessory No. 5 is a pocket com 

6 pass and is used in connections * 

7 with putting. Like suppose for 

8 inst. you land on the green abou 
3 t 10 ft. from the cup, why the n 

10 ext thing is to find out what di 

11 rection the hole is at and this 

12 can’t be done and done right wit 

13 hout a compass.** At lease I hav 

14 e seen a whole lot of golfers tr 

15 y and putt without no compass, a 




Screen: 122 

0 ( V" ... " M: message-name demo) 
1 

2 V" There is an inconvenience whi 

3 ch attends all abstruse reasonin 

4 g, that it may silence, without 

5 convincing an antagonist, and re 

6 quires the same intense study to 

7 make us sensible of its force, 

8 that was at first requisite for 

9 its invention. When we leave ou 

10 r closet, and engage in the comm 

11 on affairs of life, its cone1 usi 

12 ons seem to vanish, like the pha 

13 ntorns of the night on the appear 

14 ance of the morning; and ’tis di 

15 fficult for us to retain even th 


Screen: 125 

0 rtd their ball has went from 10 t 

1 o 45 ft. degrees to the right or 

2 left of where the hole is actua 

3 lly located. This is because th 

4 ey was just guessing where as wi 

5 th a compass they’s no guess wor 

6 k about it. If you miss a putt 

7 with a compass to tell you just 

8 where a hole is at, why it’s bee 

9 ause you can’t putt so good. ’ **R 

10 ing Lardner on New Golf Accesori 

11 es, 1924.*" 

12 

13 MSG: MSGDEM2 

14 CR ." MSGDEM2 now exists." CR 

15 
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0 at conviction, which we had atta 

1 in’d with difficulty. This is s 

2 till more conspicuous in a long 

3 chain of reasoning, where we mus 

4 t preserve to the end the eviden 

5 ce of the first propositions, an 

6 d where we often lose sight of a 

7 11 the most receiv’d maxims, eit 

8 her of philosophy or common life 

9 . I am not, however, without h 


10 

11 

opes. . .**David 

Hume, 1793 .*" 

12 

<M: MSGDEM1 


13 

CR 


14 

." MSGDEM1 now 

exists. " 

15 

CR 
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0 < More MSG:’s ) 

1 

2 X" The rat the cat I bought ca 

3 ught escaped.V MSGs M0 

4 

5 X" There are gold coins here!*" 

6 MSG: Ml 

7 

8 X" Aww, gee, Beave!-*" 

9 MSG: M2 
10 

11 X" You see, Watson, but you do n 

12 ot observe.♦" MSGs M3 

13 

14 X" Never look back; something ma 

15 y be gaining on you.4" —> 



Screen: 127 

Screen: 130 


0 < More MSG:’s ) 

0 


l 

1 


£ MSG: M4 

2 


3 

3 


4 X" ’The precise date at which th 

4 


5 e reversion to cap and gown took 

5 


6 place, as well as the fact that 

6 


7 it affected so large a number o 

7 


B f schools at about the same time 

8 


9 , seerns to have been due in some 

9 


10 measure to a wave of atavistic 

10 


11 sense of comformity and reputabi 

11 


1£ lity that passed over the commun 

12 


13 ity at that period. ’-*-*Thorstein 

13 


14 Veblen, lB99.->" MSG: M5 

14 


15 

15 
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Screen: 131 
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Screen: 132 
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Screen: 166 

0 ( Load Chain ) 

1 

£ ’ < QUAN )( 10 LOAD ) 

3 16 LOAD ( utilities ) 

4 


6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


( Do not modify these lines ) ^ 


—> 
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Screen 
0 ( 

1 £8 
£ i 

3 t 

4 < 

5 ( 

6 ( 
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8 < 
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Load Chain, options screen ) 
LOAD ( af, do not modify ) 
34 LOAD ( rgt & ctr justify ) 
38 LOAD ( fill justify ) 

50 LOAD ( coloring ) 

52 LOAD ( capitalization > 
54 LOAD < inverse video ) 

LOAD ( af, do not modify ) 
60 LOAD ( text compression ) 
68 LOAD ( frnt’d nurn. output ) 
70 LOAD ( typed output ) 

86 LOAD ( B&W window output ) 
88 LOAD < Color wndw output ) 
( select >= 1 of above 3 ) 

100 LOAD < Virtual mem. text ) 
116 LOAD ( " for demos ) 
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Screen: 172 
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10 1 ® 

11 11 
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15 15 


Qrrpoyi • 1 7171 

0 CONTENTS OF THIS DISK: 

1 

2 LOAD-CHAIN 166 LOAD 

3 

4 EFFICIENT <BUILDS DOES> 

5 (ALSO LOADED BY TXTCMP) 56 LOAD 

6 QUAN STRUCTURES 10 LOAD 

7 TRANSIENT STRUCTURES 4 LOAD 

B 

9 

10 


13 

14 

15 
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0 Disk Error! 
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2 Dictionary too big 
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Screen: 178 

0 ( Error messages 
1 

2 Use only in Definitions 

3 

4 Execution only 

5 

6 Conditionals not paired 

7 

8 Definition not finished 

9 

10 In protected dictionary 

11 

12 Use only when loading 

13 

14 Off current screen 

15 


Screen: 176 

0 ( Error messages 
1 

2 Stack empty 

■j 

u 

4 Dictionary full 

5 

6 Wrong addressing mode 

7 

8 Is not unique 

9 

10 Value error 

11 « 

12 Disk address error 

13 

14 Stack full 

15 
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) 0 Declare VOCABULARY 
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HANDY REFERENCE CARD 
valFORTH SOFTWARE SYSTEM 

TM 

Text Campressten and 
Ante Text Formatting 


Basic Commands 

( - ) 

♦TYPE ( addr count -- ) 
*CR 

*EMIT ( c — ) 

*SPACE ( - ) 

♦SPACES ( n - ) 

♦BACKS ( — ) 

RGTJST ( — ; 

LFTJST ( - ) 

CTRJST ( — ) 

FILJST ( - ) 

INVID ( f - ) 

INVBK ( f — ) 

CAP ( — ) 

CAPS ( f - ) 

COLOR ( b — ■ 

TYPEOUT ( - : 

WINOOUT ( — ) 

INVBK ( ON or OFF — } 


Sends following string of characters to the 
formatter. 

Sends count characters starting at addr 
to the formater. 

*CR formats and flushes the buffer to the 
output device, clears the buffer, does CR. 
Sends the character c to the formatter. 

Sends a single character of value in the 
quan BKGND to the formatter, through *EMIT. 
Sends n characters of value in the quan BKGND 
to the formatter, through *EMIT. 

Backs up the formatter buffer pointer, BPTR, 
one location and fills new location with 
8KGND value. 

Sets up formatter for right justification. 

Sets up formatter for left justification. 

Sets up formatter for center justification. 
Sets up formatter for fill justification. 

UN INVID means text will be output in inverse 
video; OFF INVID means normal video. 

ON INVBK means background of text will be 
output in inverse video. OFF INVID means 
normal video. 

Causes capitalization of the next byte 
processed by *EMIT or *TYPE. 

ON CAPS means text will be capitalized if 
lower case. OFF CAPS means text will be 
printed as-is. 

Color register b will be used for color of 
subsequent text output to windows in Graphics 
modes 1 and 2. 

TYPEOUT directs the formatter to use TYPE 
as its actual output routine, allowing output 
to the display screen or printer. 

WINDOUT directs the formatter to use window 
routines for output. A window must be created 
before attempting to use window output. 

When ON, background character output by 
formatter in 0 graphics mode will be inverse 
video blank. When OFF, this character will 
be norma 1 video blank. 


Text Compression 

xxx: { - ) 


Creates a tc-wora-compiling wore, named xxx, 
and a headerless tc-word which when executed 
sends the string xxx through the formatter 
followed by *SPACE xxx when executed, com¬ 
piles in the ct'a of this tc-worq. W= and xxx 
are both in transient area and so are disposed 
by DISPOSE. 

Creates a tc-prefix-compiling word, named xxx. 
and a headerless tc-prefix whicn when executed 
sends the string xxx through the formatter, 
xxx,when executed, compiles in the cfa of 
this cfa of this tc-prefix. P= and xxx are 
both in the transient area and so are disposed 
by DISPOSE. 

Creates a tc-suffix-compiling word, named 
xxx and a headerless tc-suffix which when 
executed sends the string xxx through the 
formatter preceded by *8ACKS and followed 
by *SPACE. xxx, when executed, compiles in 
the cfa of this tc-suffix, S= and xxx are 
both in the transient area and so are dis¬ 
posed by DISPOSE. 


Typed Output 


PRTWID 

'■ ni 

A quan containing the width of the area to 
be printed when printer output from the 
formatter has been selected by PR T : 

PRTIND 

( - - n ) 

A quan containing the number of spaces the 
printer is to indent when outputting from 
the formatter. 

PWIP 

! -- n . 

A quan containing the number of columns the 
printer ’s actually able to print. 

VIDIND 

' 

A quan containing the number of spaces the 
output routine is to indent when outputting 
from the formatter 

VIDWID 

{ -- n j 

A quan containing the width of the area tc 
be written wnen video output from the for¬ 
matter nas been selected by VID•. 

PRT: 

; ■ 

Directs T v PFd output to the. printer, and 
moves appropriate values into WWID and PVIND. 

v u. 

\ — i 

Directs TYPEd output to the video display, 
and moves appropriate values into WWID and 

PVIND. 

PRINIT 

[ — ) 

Resets PCTR, the printed 1 ine counter. 

Windows 

w’ADR 

( - i 

Address in memory corresponding to character 
position in upper lefthand corner of current 
window. 

WHGT 

( - ) 

Height in lines of currently active window. 

WCLR 

( -- ) 

Fills the current window with BKGND. 

NAMWND 

( wadr wid hght b/ch 
byt/In -- ) 

One of many possible window-defining structures 
Accepts window upper lefthand corner address, 
its width, height, byte/character, and the 
bytes/ln of the current graphics mode. 

NAMEBW 

xxx. ( column row wid 
hgt -- ) 

xxx: ( -- ) 

Names a 0 graphics window for later 
activation. 

MAKEBW 

( col row wid hgt -- ) 

Establishes a 0 graphics window immediately 
but does not name it for later retrieverl. 

NAMECW 

xxx, ( col row wid hgt --) 
xxx: ( -- ) 

1 Names a 1 or 2 graphics window for later 
activation. 

MAKECW 

( col row wid hgt -- ) 

Establishes a 0 graphics window immediately 


but does not name it for later retrieval. 


Virtual (Disk-based) Memory 

(A pointer to a byte on disk is implemented by the two system variables, BLK and 
IN in the fig model. BLK contains the block number pointed to and IN contains the 
number of bytes into the block the byte in question is located.) 


V" 


XMTV 


XCOUNT 

-M: 


V: 


V$@ 

VS*EMT 

V$! 


X" 


ALT IN IT 


( -- blk in ) 


( - ) 

( adr — adr+2 xcount ) 

xxx, ( blk in -- ) 
xxx: ( -- ) 

xxx, ( blk in — ) 
xxx: ( -- ) 

( — XCOUNT ) 

( — X$=PAD ) 

{ - ) 

{ X$ — > 

( — xS-PAD ) 


( scr -- ) 


Leaves the values of BLK and IN on the stack 
at the time it is executed and then scans the 
virtual memory pointer formed by BLK and IN 
forward until the next " character is encountered. 
Starting from the location in virtual memory 
pointed to by BLK and IN, outputs characters 
through *EMIT until a " character is encountered, 
which it does not output. 

Extracts a two-byte count from an extended 
string, and leaves the count on top of the 
address + 2. 

Generally used after V". Takes a virtual 
memory pointer from the stack, and creates 
a word xxx which when executed will push the 
virtual memory pointer to BLK and IN and then 
execute XMTV, thus retrieving a message from 
disk. 

Creates a word xxx which when executed pushes 
the virtual memory pointer which was on stack 
at the time of its creation to BLK and IN. 

Extracts a two-byte string count from the 
disk location to which BLK and IN point, 
leaves it on stack, and bumps the virtual 
memory pointer made up of BLK and IN twice. 
Extracts the extended string in virtual 
memory pointed to by BLK and IN. The string 
is'left at PAD. 

Sends the extended string pointed to by BLK 
and IN through *EMIT. 

Stores the extended string on stack to 
virtual memory starting at the location 
pointed to by BLK and IN. 

Reads the following characters until the 
delimeter " as an extended string and stores 
the string at PAD. Operates from screens 
only. Crosses block and screen boundaries 
without additional code. 

Sets up ALTBLK and ALTIN to point to screen 
scr. ALTBLK and ALTIN form an auxiliary 
virtual memory pointer that is used to keep 
track of how far messages have been compiled 
onto the destination disk. 
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